home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls035c.1 / lib / vtcl / tests / info.tcl / info.tcl
Encoding:
Text File  |  1995-03-23  |  498 b   |  29 lines
  1. #
  2. # Simple test of the VtInfo command
  3. #
  4.  
  5. proc CloseCB {cbs} {
  6.     VtClose; exit 0
  7. }
  8.  
  9. set app [VtOpen info]
  10.  
  11. set charm [VtInfo -charm]
  12. set version [VtInfo -version]
  13. set colors [VtInfo -colors]
  14. set height [VtInfo -displayHeight]
  15. set width [VtInfo -displayWidth]
  16.  
  17. set msg "Charm is $charm\nVersion is $version\nNumber of Colors: $colors
  18. Dimension: $width X $height"
  19.  
  20. set dlog [VtMessageDialog $app.mess \
  21.     -message $msg \
  22.     -ok \
  23.     -okCallback CloseCB \
  24.     -font medBoldFont \
  25.     ]
  26.  
  27. VtShow $dlog
  28. VtMainLoop
  29.